a5queueing::queueEnqueueBatch Method

Syntax

Arguments

itemsA5Queueing::QueueItems

List of queue items.

Returns

resultA5Storage::CallResult

Call result.

Description

Enqueue many items to a queue at once.

Example

dim messageNo as n = 0
dim qm as A5Queueing::Queue = null_value()
dim Batch as A5Queueing::Items = new A5Queueing::Items() 

if A5Queueing::Queue::Open(qm,"Provider='RabbitMQ';Host='localhost';Queue='TestQ';").success then
   for i = 1 to 100
     currentitem = qm.CreateQueueItem()
     messageNo = messageNo + 1
     currentitem.Body = "Test Message "+messageNo
     Batch.Add(currentitem)
  next
  callresult = qm.EnqueueBatch(Batch)
  if callresult.Error then
     ui_msg_box("Error",callresult.MessageToDisplay)
  end if
end if